home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs25.d81
/
stereo_s
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
14 lines
10 A$="2ND SID CHIP FOUND AT "
20 FORS=56832TO56856
30 I=PEEK(S)
40 IFI<>0THENA=A+1
50 NEXT
60 IFA=0THENPRINTA$;"DE00 :)"
70 FORS=57088TO57112
80 I=PEEK(S)
90 IFI<>0THENB=B+1
100 NEXT
110 IFB=0THENPRINTA$;"DF00 :)"
120 IFA=0ORB=0THENEND
130 PRINT"NO 2ND SID CHIP FOUND :(